Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Tools.Dxr/Internal_282_Chef section scripts.ls

Text File | 1998-05-04 | 1.6 KB | 91 lines

global gMasterData, gChefPage

on goRoles
  set gChefPage to 0
  go(label("roleplay"))
  goNarrator(gMasterData, "44")
  setUserArea(gMasterData, #chefIntro)
end

on exitChef
  global checkMarks2
  if getaProp(checkMarks2, #chefBook) = 0 then
    setaProp(checkMarks2, #chefBook, 1)
  end if
end

on chefAudio
  case gChefPage of
    1:
      diskAudio(gMasterData, "chef1")
    2:
      diskAudio(gMasterData, "chef2")
    3:
      diskAudio(gMasterData, "chef3")
    4:
      diskAudio(gMasterData, "chef4")
    5:
      diskAudio(gMasterData, "chef5")
    6:
      diskAudio(gMasterData, "chef5b")
    7:
      diskAudio(gMasterData, "chef6")
    8:
      goNarrator(gMasterData, "45")
  end case
end

on flipChefPage direction
  stopSounds()
  case direction of
    #next:
      case gChefPage of
        0:
          setUserArea(gMasterData, #chefBook)
        7:
          setUserArea(gMasterData, #chefEnd)
      end case
      set gChefPage to gChefPage + 1
    #previous:
      if gChefPage = 8 then
        setUserArea(gMasterData, #chefBook)
      end if
      set gChefPage to gChefPage - 1
  end case
  case gChefPage of
    0:
      goRoles()
    1:
      go("chef1")
    2:
      go("chef2")
    3:
      go("chef3")
    4:
      go("chef4")
    5:
      go("chef5")
    6:
      go("chef6")
    7:
      go("chef7")
    8:
      go("chefEnd")
  end case
  if gChefPage <> 3 then
    chefAudio()
  end if
end

on chefHint
  global gMasterData
  if the frameLabel = "chefhint" then
    go(label("chefEnd") + 1)
  else
    go(label("chefhint"))
  end if
  if not soundBusy(2) then
    bkgrdMusic(gMasterData)
  end if
end